Option Explicit
Sub P_Sample026()
    Dim myFso As Scripting.FileSystemObject
    Dim myStr As String
    Set myFso = New Scripting.FileSystemObject
    With myFso.GetFolder(ThisWorkbook.Path)	'wNƧ
    If (.Attributes And Normal) = Normal Then myStr = myStr & "з"
    If (.Attributes And ReadOnly) = ReadOnly Then myStr = myStr & "Ū"
    If (.Attributes And Hidden) = Hidden Then myStr = myStr & ""
    If (.Attributes And System) = System Then myStr = myStr & "t"
    If (.Attributes And Directory) = Directory Then myStr = myStr & "Ƨ"
    If (.Attributes And Archive) = Archive Then myStr = myStr & "Y]Archive^"
    End With
    MsgBox "zҫwƧݩʬ" & myStr & "C"
    Set myFso = Nothing	'
End Sub
